home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / gfx / show / KeyFix.lha / KeyFix-Install < prev    next >
Encoding:
Text File  |  2002-02-18  |  5.0 KB  |  213 lines
  1. ;$VER: Install 1.01 (15.02.2002) © T.B. <tonyiommi@gmx.net>
  2.  
  3. (effect "lower_right" "radial" $FFFFFF $0000FF)
  4.  
  5. (set #wbversion 0)
  6. (set #wbversion (getversion "libs:version.library"))
  7. (set #wbversion (/ #wbversion 65536) )
  8.  
  9. (set #default-prgdest "SYS:Utilities")
  10. (set #default-docdest "HELP:")
  11. (set #priority 51)
  12.  
  13. (complete 0)
  14.  
  15. (if (= @language "deutsch")
  16. (
  17.  
  18. ;============================================================
  19. ; Deutsch Strings
  20.  
  21. (set #msg-welcome
  22.  (cat "\nDamage Inc. präsentiert\n\n"
  23.       @app-name "\n\n"
  24.       "© T.B. <tonyiommi@gmx.net>\n\n\n"
  25.  ))
  26.  
  27. (set #msg-prgdir
  28. (cat "\nWähle das Installationverzeichnis.\n"
  29.      "Es wird kein neues Verzeichnis erzeugt.\n"
  30.      ))
  31.  
  32. (set #msg-docdir
  33. (cat "\nWähle das Anleitungsverzeichnis\n"
  34.      ))
  35.  
  36. (set #msg-noinstaller
  37. (cat "\nFehler! Installer v44 wird benötigt.\n\n"
  38.      "Bitte das AmigaOS aktualisieren."
  39.      ))
  40.  
  41. (set #msg-noos
  42. (cat "\nFehler! AmigaOS 3.5 wird benötig.\n\n"
  43.      "Bitte das AmigaOS aktualisieren."
  44.      ))
  45.  
  46. (set #msg_installing_prg "Installiere das Program...")
  47. (set #msg_installing_doc "Installiere Anleitung...")
  48. (set #msg-startup (cat "\n" @app-name " in die User-Startup Sequenz eingetragen? (empfehlenswert)"))
  49. (set #msg_priority (cat
  50.  "\nBitte die Priorität des Inputhandlers eingeben.\n"
  51.  "Commodities läuft mit Priorität 53\n"
  52.  "Intuition läuft mit 50\n"
  53.  "Consoledevice läuft mit 0"
  54.  ))
  55. (set #msg_startprg "\nProgramm jetzt starten?")
  56. (set #msg_startprghelp "\nProgramm kann ohne Reboot gleich gestartet werden?")
  57. )
  58. (
  59. ;============================================================
  60. ; English Strings
  61.  
  62. (set #msg-welcome
  63. (cat "\nDamage Inc. presents\n\n"
  64.      @app-name "\n\n"
  65.      "© T.B. <tonyiommi@gmx.net>\n\n\n"
  66.     ))
  67.  
  68. (set #msg-prgdir
  69. (cat "\nSelect Installationdirectory.\n"
  70.      "No Directory will be created.\n"
  71.      ))
  72.  
  73. (set #msg-docdir
  74. (cat "\nSelect Documentationdirectoy.\n"
  75.      ))
  76.  
  77. (set #msg-noinstaller
  78. (cat "\nInstaller v44 needed Error!\n\n"
  79.      "Update your AmigaOS, please."
  80.      ))
  81.  
  82. (set #msg-noos
  83. (cat "\nAmigaOS 3.5 needed Error!\n\n"
  84.      "Update your AmigaOS, please."
  85.      ))
  86.  
  87. (set #msg_installing_prg "Installing Program...")
  88. (set #msg_installing_doc "Installing Docs...")
  89. (set #msg-startup (cat "\nShould " @app-name " be added to User-Startup?  (recommended)"))
  90. (set #msg_priority (cat
  91.  "\nEnter the Priority for the Inputhandler, please.\n"
  92.  "Commodities is running at Priority 53\n"
  93.  "Intuition is running at 50\n"
  94.  "Consoledevice is running at 0"
  95.  ))
  96. (set #msg_startprg "\nStart Program now?")
  97. (set #msg_startprghelp "\nProgram can be started directly without Rebooting")
  98. ))
  99.  
  100. ;============================================================
  101. ; BEGIN
  102.  
  103. (showmedia "Readme" (cat @app-name ".readme") "lower_left" "medium" 1 "wordwrap")
  104.  
  105. (welcome #msg-welcome)
  106.  
  107. (showmedia "DamagePic" "Damage.jpg" "upper_left" "none" 0)
  108.  
  109. ;============================================================
  110. ; Check Installer, does not work
  111.  
  112. (if (< @installer-version 44)
  113.     (   (exit #msg-noinstaller (quiet))
  114.     ))
  115.  
  116. ;============================================================
  117. ; Check OS
  118.  
  119. (if (< #wbversion 44)
  120. (   (exit #msg-noos (quiet))
  121.     ))
  122.  
  123. ;============================================================
  124. ; Get Directories
  125.  
  126. (set #prgdir
  127.     (askdir (prompt #msg-prgdir)
  128.     (help @askdir-help)
  129.     (default #default-prgdest)
  130.     (disk)
  131.     (back (retrace))
  132.     ))
  133.  
  134. (set #docdir
  135.     (askdir (prompt #msg-docdir)
  136.     (help @askdir-help)
  137.     (default #default-docdest)
  138.     (disk)
  139.     (back (retrace))
  140.     ))
  141.  
  142. ;============================================================
  143. ; Get Priority
  144.  
  145. (if (= @user-level 2)
  146.     (set #priority (asknumber (prompt #msg_priority)
  147.     (help @asknumber-help)
  148.     (range -128 255)
  149.     (default 51)
  150.     (back (retrace))
  151.     )))
  152.  
  153. ;============================================================
  154. ; Copy Files
  155.  
  156. (copyfiles (prompt #msg_installing_prg)
  157.            (help @copyfiles-help)
  158.            (source @app-name)
  159.            (dest #prgdir)
  160.            (infos)
  161.            (back (retrace))
  162.            )
  163.  
  164. (complete 50)
  165.  
  166. (copyfiles (prompt #msg_installing_doc)
  167.            (help @copyfiles-help)
  168.            (source (cat @app-name ".readme"))
  169.            (dest #docdir)
  170.            (back (retrace))
  171.            )
  172.  
  173. (complete 75)
  174.  
  175. ;============================================================
  176. ; User-Startup
  177.  
  178. (if (= @user-level 2)
  179.  
  180. (startup @app-name
  181.     (prompt #msg-startup)
  182.     (help @startup-help)
  183.     (command (cat 'RUN '  '> NIL: "' (tackon #prgdir @app-name) '"' ' PRI=' #priority))
  184.     (confirm)
  185.     (back (retrace))
  186.     )
  187.  
  188. (startup @app-name
  189.     (prompt #msg-startup)
  190.     (help @startup-help)
  191.     (command (cat 'RUN ' '> NIL: "' (tackon #prgdir @app-name) '"'))
  192.     (confirm)
  193.     (back (retrace))
  194.     )
  195.  
  196.  )
  197.  
  198. ;============================================================
  199. ; Start Prg
  200.  
  201. (run (cat 'RUN '  '> NIL: "' (tackon #prgdir @app-name) '"' ' PRI=' #priority)
  202.     (prompt #msg_startprg)
  203.     (help #msg_startprghelp)
  204.     (confirm))
  205.  
  206. (complete 100)
  207.  
  208. ;============================================================
  209. ; Installation complete
  210.  
  211. (set @default-dest #prgdir)
  212. (exit)
  213.